﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="save" Then
	call save
else
	call index
end if
end Function



Function index
dim page
    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1


	dim fleg,id,rs,sql,str,Runtxt
	Runtxt=qingtian.RunStr
    		fleg = Request("fleg")    
    		If fleg = "" Then fleg = 0
   		If Not IsNumeric(fleg) Then fleg = 0
    		fleg = CLng(fleg)
    		If fleg < 0 Then fleg = 0

    		id = Request("id")    
    		If id = "" Then id = 0
   		If Not IsNumeric(id) Then id = 0
    		id = CLng(id)
    		If id < 0 Then id = 0

	set rs=server.CreateObject("adodb.recordset")
	sql="select top 1 * from qingtian_class where id="&id&" "
	rs.open sql,conn,1,1
	if not (rs.bof and rs.eof) then



	select case rs("ext")
	case "0"
		str="主"
	case "1"
		str="文本"
	case "2"
		str="联接"
	case "3"
		str="标签"
	case "4"
		str="图片"
	case "5"
		str="文章"
	case "6"
		str="文件分类"
	case "7"
		str="文章分类"
	case "8"
		str="图片分类"
	end select

%>
	<card title="删除<%=str%>栏目"><p align="left">

	确认删除栏目:<%=qingtian.utf8(rs("name"))%>吗?<br/>

    	<a href="delclass.asp?Action=save&amp;act=<%=rs("ext")%>&amp;page=<%=page%>&amp;id=<%=id%>&amp;fleg=<%=fleg%>&amp;sid=<%=sid%>">确定删除</a><br/>
  
	<%
	else
	%>
	<card title="删除栏目"><p align="left">
	<%
	end if
	Rs.close
	set rs=nothing


%>
-------------<br/>
<a href='lclass.asp?page=<%=page%>&amp;fleg=<%=fleg%>&amp;sid=<%=sid%>'>返回栏目管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%

End Function




Function save
dim page,rs,sql,i
    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
	dim fleg,id
    		fleg = Request("fleg")    
    		If fleg = "" Then fleg = 0
   		If Not IsNumeric(fleg) Then fleg = 0
    		fleg = CLng(fleg)
    		If fleg < 0 Then fleg = 0


    		id = Request("id")    
    		If id = "" Then id = 0
   		If Not IsNumeric(id) Then id = 0
    		id = CLng(id)
    		If id < 0 Then id = 0





		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select  * FROM qingtian_class where id="&id&" or fleg="&id&""
		rs.open sql,conn,1,3
		if not (rs.bof and rs.eof) then
                For i=1 to rs.RecordCount
		        If Rs.Eof Then
			      exit For
		        End If         
		rs.delete
			Rs.MoveNext
			next
		end if
		rs.Close
		Set rs = Nothing
	%>
	<card id="save" title="删除栏目" ontimer="lclass.asp?page=<%=page%>&amp;id=<%=id%>&amp;fleg=<%=fleg%>&amp;sid=<%=sid%>"><timer value="20"/>
		<p align="left">
		删除栏目成功!<br/>
<a href='lclass.asp?page=<%=page%>&amp;fleg=<%=fleg%>&amp;sid=<%=sid%>'>返回栏目管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 



%>
